home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jun.arc / FRACTAL.ARC / 1OVERF.BAS next >
Encoding:
BASIC Source File  |  1986-03-10  |  640 b   |  28 lines
  1. 1 REM 1OVERF.BAS is in MSX BASIC with MUSIC MACRO
  2. 2 REM commands for the Yamaha CX5-M music computer
  3. 10    _INIT:_INST(1):LL=8:LN=16:S=60:X=RND(-TIME)
  4. 20    FOR X = 1 TO 25
  5. 30    D=N:GOSUB 130
  6. 40    N=D:SN=N+S
  7. 50    D=L:GOSUB 130
  8. 60    L=D:SL=LL+1
  9. 70    _PHRASE(1,"L=SL;","N=SN;")
  10. 80    NEXT X
  11. 90    _PLAY(1,1)
  12. 100    _WAIT(1)
  13. 110    INPUT"AGAIN";DD
  14. 120    GOTO 90
  15. 130    REM   1/F ROUTINE
  16. 135    REM L is last value.  K is 1/2 poss values. PROBIT=1/K
  17. 140    L=D:D=0:K=16:PROBIT=.03125
  18. 150    J=INT(L/K)
  19. 160    IF J=1 THEN L=L-K
  20. 170    U=RND(1)
  21. 180    IF U < PROBIT THEN J=1-J
  22. 190    D=D+J*K
  23. 200    K=K/2
  24. 210    PROBIT=PROBIT*2
  25. 220    IF K>1 THEN GOTO 150
  26. 230    RETURN
  27. 170    U=RND(1)
  28. 1